home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Tools / ZPXReader-36.0.lzx / Rexx / ZPXReader.zprx
Text File  |  2015-02-09  |  4KB  |  155 lines
  1. /*
  2.    $VER: ZPXReader.zprx 1.5 (31.5.96) © 1996 by Jörg Strohmayer
  3.  
  4.    FUNKTIONSBESCHREIBUNG:
  5.  
  6.     Startet den Reader mit allen selektierten Nachrichten.
  7.  
  8.     Mit ZPXReader Version 0.12 oder höher ist folgendes möglich:
  9.     RETURN/ENTER: Weiterlesen
  10.     ESC/Q/CRSR-Left/NUMPAD-4/RMB/NUMPAD-*: Abbrechen
  11.  
  12.  
  13.    INSTALLATION:
  14.  
  15.     Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
  16.     fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
  17.     "F6:ZP:Rexx/ZPXReader.zprx >NIL: %s" hinzu.
  18.  
  19.     Alternativ hierzu können Sie auch folgende Zeilen in die Datei
  20.     usermenus.zp einfügen:
  21.  
  22.     *Markierte lesen
  23.     ZP:Rexx/ZPXReader.zprx >NIL: %s
  24.  
  25.     
  26.    AUTOR DIESES SKRIPTS:
  27.  
  28.        Jörg Strohmayer
  29.        Im Bachacker 10        EMail: JS@UTOPIA.lahn.de
  30.        D-35232 Dautphetal       oder über das ZP-Support-Brett.
  31.  
  32.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  33. */
  34.  
  35. /* ZPoint-Verzeichnis, z.B.: "ZPoint:", "Work:ZPoint/", ...
  36. ** Bei Verwendung von ZPXReader muss dieser als "{ZPDir}Tools/ZPXReader"
  37. ** erreichbar sein ! (oder schon Resident sein)
  38. */
  39. ZPDir = "ZP:"
  40.  
  41. /* Ist der Reader ZPXReader 0.12 oder höher ?
  42. ** 0 = Nein, 1 = Ja
  43. */
  44. ZPXR = 1
  45.  
  46. /* Sollen die gelesenen Nachrichten gelöscht werden ?
  47. ** 0 = Nein
  48. ** 1 = Ja - sofort
  49. ** 2 = Ja - sofort, auch Archivierte Nachrichten
  50. ** 3 = Ja - später
  51. ** 4 = Ja - später, auch Archivierte Nachrichten
  52. */
  53. DeleteMess = 0
  54.  
  55. /* Sollen die gelesenen Nachrichten als alt markiert werden ?
  56. ** 0 = Nein, 1 = Ja
  57. */
  58. MarkOld = 1
  59.  
  60. /* Soll die Markierung gelesener Nachrichten entfernt werden ?
  61. ** 0 = Nein, 1 = Ja
  62. */
  63. Unselect = 1
  64.  
  65. /* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  66.  *      Bitte geben Sie hier ihre Präferenzen ein !                *
  67.  *******************************************************************/
  68.  
  69. /*******************************************************************
  70.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  71.  *******************************************************************/
  72. OPTIONS RESULTS
  73.  
  74. PARSE ARG zpPort
  75. IF zpPort == "" THEN
  76.    zpPort = "ZPoint"
  77. ADDRESS VALUE zpPort
  78.  
  79. WHICHLEVEL /* von wo wurde das Skript gestartet ? */
  80. IF RESULT ~= "BOARD" THEN DO
  81.    REQUESTNOTIFY "Bitte begeben Sie sich in ein Brett!"
  82.    EXIT
  83. END
  84.  
  85. COUNT LISTED
  86. IF RESULT == 0 THEN DO
  87.    MESSAGEINFO TYPE
  88.    IF RESULT == BINARY THEN DO
  89.       SAVEMESSAGEBODY 'T:ZPXR-BIN-' || zpPort
  90.       ADDRESS COMMAND 'MultiView T:ZPXR-BIN-' || zpPort || ' PUBSCREEN=' || zpPort
  91.       ADDRESS COMMAND 'Delete T:ZPXR-BIN-' || zpPort
  92.       CALL _Lesen2
  93.     END
  94.    ELSE DO
  95.       IF Unselect == 1 THEN SELECTMESSAGE
  96.       CALL _Lesen
  97.    END
  98.    EXIT
  99. END
  100.  
  101. IF ZPXR == 1 THEN DO
  102.    Var = "ZPXR" || zpPort
  103.    VarRet = Var || "RET"
  104.    ADDRESS COMMAND SetEnv Var "-"
  105.  
  106.    ADDRESS COMMAND WHICH ZPXReader RES
  107.    IF RC == 5 THEN ADDRESS COMMAND Resident ZPDir || "Tools/ZPXReader"
  108. END
  109.  
  110. GUILOCK ON
  111.  
  112. JUMPTOMESSAGE 1
  113. MESSAGEINFO LISTED
  114. IF Result == 0 THEN JUMPTOMESSAGE LISTED DOWN
  115.  
  116. ende = 0
  117. DO UNTIL (next == 0)
  118.    CALL _Lesen
  119.    IF ende == 0 THEN DO
  120.       JUMPTOMESSAGE LISTED DOWN
  121.       next = RC
  122.    END
  123.    ELSE next = 0
  124. END
  125.  
  126. IF ZPXR == 1 THEN DO
  127.    ADDRESS COMMAND ZPXReader "-" zpPort
  128.    ADDRESS COMMAND UnSetEnv Var
  129. END
  130.  
  131. SHOWSELECTED
  132. GUILOCK OFF
  133. EXIT
  134.  
  135. _Lesen:
  136. READMESSAGE
  137. IF ZPXR == 1 THEN DO
  138.    ADDRESS COMMAND GetEnv VarRet
  139.    IF RC == 0 THEN ADDRESS COMMAND UnSetEnv VarRet
  140.    ELSE ende = 1
  141. END
  142. IF Unselect == 1 THEN SELECTMESSAGE
  143.  
  144. _Lesen2:
  145. IF MarkOld == 1 THEN MARKASOLD ONE
  146. SELECT 
  147.    WHEN DeleteMess == 0 THEN NOP
  148.    WHEN DeleteMess == 1 THEN DELETE ONE
  149.    WHEN DeleteMess == 2 THEN DELETE ONE FORCE
  150.    WHEN DeleteMess == 3 THEN DELETE LATER ONE
  151.    WHEN DeleteMess == 4 THEN DELETE LATER ONE FORCE
  152.    OTHERWISE NOP
  153. END
  154. RETURN
  155.